TeX 1995 July/TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO/macros/plain/contrib/memo.tex

Text File | 1992-08-26 | 1.8 KB | 41 lines

%
% Memo -- Generate a memo banner
%
% Use \memodept{ text } to define the department text.
% Use \memocirc{ text } to define the to field.
% Use \memodate{ text } to define the date the memo will be sent (default is
%         the current date that TeX processes the file).
% Use \memofrom{ text } to define the from field.
% Use \memophone{ text } to define the phone number of the sender.
% Use \memomail{ text } to define the mail code of the sender.
% Use \memosubj{ text } to define the subject of the memo.
%
% Use \memohdr to print the memo banner once the fields above have been defined
%
\nopagenumbers
\def\today{\ifcase\month\or January\or February\or March\or April\or
    May\or June\or July\or August\or September\or October\or November\or
    December\fi\space\number\day, \number\year}
\def\memotwobx#1#2{\line{{To}\hskip 10pt #1\hfill{Date}\hskip 10pt #2}}
\def\memothrbx#1#2#3{\line{{From}\hskip 10pt #1\hfill\hfill\hfill
    {Extension}\hskip 10pt #2\hfill{Mail Code}\hskip 10pt #3}}
\def\memoltbx#1{\line{{Subject}\hskip 10pt #1\hfill}}
\def\memoya{Chemistry}          \def\memoyb{You}
\def\memoyc{\today}             \def\memoyd{Me}
\def\memoye{6532}               \def\memoyf{Misc.}
\def\memoyg{127-72}
\def\memodept#1{\def\memoya{#1}}\def\memocirc#1{\def\memoyb{#1}}
\def\memodate#1{\def\memoyc{#1}}\def\memofrom#1{\def\memoyd{#1}}
\def\memophone#1{\def\memoye{#1}}\def\memosubj#1{\def\memoyf{#1}}
\def\memomail#1{\def\memoyg{#1}}
\font\fiverm=ambx5                  % Change to CMBX5 if you use new TeX 2.0
\def\memohdr{\centerline{\fiverm interoffice memorandum}\par
     \null\par
     \centerline{\bf CALIFORNIA INSTITUTE OF TECHNOLOGY} % Change this line
     \centerline{\bf {\memoya}}
     \null\par
     \memotwobx{\memoyb}{\memoyc}
     \memothrbx{\memoyd}{\memoye}{\memoyg}
     \memoltbx{\memoyf}
     \vskip 10pt}